home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / smrtslds.sit / SmartSlides 1.1 Demo / card_7336.txt < prev    next >
Text File  |  1990-06-12  |  11KB  |  568 lines
  1. -- card: 7336 from stack: in.1 Demo
  2. -- bmap block id: 7484
  3. -- flags: 0000
  4. -- background id: 2635
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=0 top=19 right=50 bottom=12
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Delay
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionKey is down then GiveHelp "Delay┬á"
  23.   else pass mouseUp
  24. end mouseUp
  25.  
  26. on mousedown
  27.   if the optionKey is up then pass mouseDown
  28. end mouseDown
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=0 top=55 right=86 bottom=12
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Beep
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   if the optionKey is down then GiveHelp "Beep┬á"
  46.   else pass mouseUp
  47. end mouseUp
  48.  
  49. on mousedown
  50.   if the optionKey is up then pass mouseDown
  51. end mouseDown
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=0 top=89 right=120 bottom=12
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: LockScreen
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   if the optionKey is down then GiveHelp "LockScreen┬á"
  69.   else pass mouseUp
  70. end mouseUp
  71.  
  72. on mousedown
  73.   if the optionKey is up then pass mouseDown
  74. end mouseDown
  75.  
  76.  
  77. -- part 4 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=0 top=123 right=154 bottom=12
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Opener
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the optionKey is down then GiveHelp "On OpenCard┬á"
  92.   else pass mouseUp
  93. end mouseUp
  94.  
  95. on mousedown
  96.   if the optionKey is up then pass mouseDown
  97. end mouseDown
  98.  
  99.  
  100. -- part 5 (field)
  101. -- low flags: 01
  102. -- high flags: 0000
  103. -- rect: left=16 top=12 right=45 bottom=487
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 91
  108. -- text size: 24
  109. -- style flags: 0
  110. -- line height: 32
  111. -- part name: Title
  112.  
  113.  
  114. -- part 6 (field)
  115. -- low flags: 01
  116. -- high flags: 2002
  117. -- rect: left=49 top=69 right=125 bottom=200
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 91
  122. -- text size: 18
  123. -- style flags: 0
  124. -- line height: 24
  125. -- part name: Rectangle
  126.  
  127.  
  128. -- part 7 (field)
  129. -- low flags: 01
  130. -- high flags: 2002
  131. -- rect: left=49 top=155 right=211 bottom=200
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 91
  136. -- text size: 18
  137. -- style flags: 0
  138. -- line height: 24
  139. -- part name: Rectangle
  140.  
  141.  
  142. -- part 8 (field)
  143. -- low flags: 01
  144. -- high flags: 2002
  145. -- rect: left=49 top=243 right=299 bottom=200
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 91
  150. -- text size: 18
  151. -- style flags: 0
  152. -- line height: 24
  153. -- part name: Rectangle
  154.  
  155.  
  156. -- part 9 (field)
  157. -- low flags: 01
  158. -- high flags: 2002
  159. -- rect: left=302 top=69 right=125 bottom=453
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 91
  164. -- text size: 18
  165. -- style flags: 0
  166. -- line height: 24
  167. -- part name: Rectangle
  168.  
  169.  
  170. -- part 11 (field)
  171. -- low flags: 01
  172. -- high flags: 2002
  173. -- rect: left=302 top=155 right=211 bottom=453
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 91
  178. -- text size: 18
  179. -- style flags: 0
  180. -- line height: 24
  181. -- part name: Rectangle
  182.  
  183.  
  184. -- part 12 (field)
  185. -- low flags: 01
  186. -- high flags: 2002
  187. -- rect: left=302 top=243 right=299 bottom=453
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 91
  192. -- text size: 18
  193. -- style flags: 0
  194. -- line height: 24
  195. -- part name: Rectangle
  196.  
  197.  
  198. -- part 13 (button)
  199. -- low flags: 00
  200. -- high flags: 0000
  201. -- rect: left=49 top=69 right=125 bottom=200
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Draw╩Straight Line╔
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   if the optionKey is down then
  213.     put the short name of me into command
  214.     delete char 1 to 5 of command
  215.     GiveHelp command
  216.   else pass mouseUp
  217. end mouseUp
  218.  
  219. on mousedown
  220.   if the optionKey is up then pass mouseDown
  221. end mouseDown
  222.  
  223.  
  224. -- part 15 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=49 top=155 right=211 bottom=200
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Draw╩Wavy Line╔
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   if the optionKey is down then
  239.     put the short name of me into command
  240.     delete char 1 to 5 of command
  241.     GiveHelp command
  242.   else pass mouseUp
  243. end mouseUp
  244.  
  245. on mousedown
  246.   if the optionKey is up then pass mouseDown
  247. end mouseDown
  248.  
  249.  
  250. -- part 17 (button)
  251. -- low flags: 00
  252. -- high flags: 0000
  253. -- rect: left=49 top=243 right=299 bottom=200
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: Draw╩Dotted Line╔
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   if the optionKey is down then
  265.     put the short name of me into command
  266.     delete char 1 to 5 of command
  267.     GiveHelp command
  268.   else pass mouseUp
  269. end mouseUp
  270.  
  271. on mousedown
  272.   if the optionKey is up then pass mouseDown
  273. end mouseDown
  274.  
  275.  
  276. -- part 18 (button)
  277. -- low flags: 00
  278. -- high flags: 0000
  279. -- rect: left=302 top=243 right=299 bottom=453
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: Draw╩Dotted Arrow╔
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   if the optionKey is down then
  291.     put the short name of me into command
  292.     delete char 1 to 5 of command
  293.     GiveHelp command
  294.   else pass mouseUp
  295. end mouseUp
  296.  
  297. on mousedown
  298.   if the optionKey is up then pass mouseDown
  299. end mouseDown
  300.  
  301.  
  302. -- part 19 (field)
  303. -- low flags: 01
  304. -- high flags: 2002
  305. -- rect: left=209 top=244 right=298 bottom=292
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Rectangle
  314.  
  315.  
  316. -- part 21 (button)
  317. -- low flags: 00
  318. -- high flags: 0000
  319. -- rect: left=209 top=244 right=298 bottom=292
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: PopItUp
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   if the optionKey is down then
  331.     GiveHelp "PopUp┬á"
  332.   else pass mouseUp
  333. end mouseUp
  334.  
  335. on mousedown
  336.   if the optionKey is up then pass mouseDown
  337. end mouseDown
  338.  
  339.  
  340. -- part 23 (button)
  341. -- low flags: 00
  342. -- high flags: 0000
  343. -- rect: left=302 top=69 right=125 bottom=453
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Draw╩Straight Arrow╔
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   if the optionKey is down then
  355.     put the short name of me into command
  356.     delete char 1 to 5 of command
  357.     GiveHelp command
  358.   else pass mouseUp
  359. end mouseUp
  360.  
  361. on mousedown
  362.   if the optionKey is up then pass mouseDown
  363. end mouseDown
  364.  
  365.  
  366. -- part 24 (button)
  367. -- low flags: 00
  368. -- high flags: 0000
  369. -- rect: left=302 top=155 right=211 bottom=453
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: Draw╩Wavy Arrow╔
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   if the optionKey is down then
  381.     put the short name of me into command
  382.     delete char 1 to 5 of command
  383.     GiveHelp command
  384.   else pass mouseUp
  385. end mouseUp
  386.  
  387. on mousedown
  388.   if the optionKey is up then pass mouseDown
  389. end mouseDown
  390.  
  391.  
  392. -- part 20 (field)
  393. -- low flags: 81
  394. -- high flags: 2004
  395. -- rect: left=131 top=108 right=310 bottom=364
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 0
  399. -- font id: 3
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: PopUp 21
  404.  
  405.  
  406. -- part contents for background part 283
  407. ----- text -----
  408. 7
  409.  
  410. -- part contents for background part 33
  411. ----- text -----
  412. scroll left slowly to card
  413. scroll right slowly to card
  414.  
  415. -- part contents for card part 5
  416. ----- text -----
  417. Drawing  Lines  &  Arrows
  418.  
  419. -- part contents for card part 6
  420. ----- text -----
  421. Click to draw straight line
  422.  
  423. -- part contents for background part 100
  424. ----- text -----
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448. -- part contents for background part 142
  449. ----- text -----
  450.  
  451.  
  452.  
  453. Opener
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462. Draw┬áStraight LineΓǪ
  463.  
  464. Draw┬áWavy LineΓǪ
  465.  
  466. Draw┬áDotted LineΓǪ
  467. Draw┬áDotted ArrowΓǪ
  468.  
  469. PopUp 21
  470. PopItUp
  471.  
  472.  
  473. -- part contents for card part 9
  474. ----- text -----
  475. Click to draw
  476. straight arrow
  477.  
  478. -- part contents for card part 7
  479. ----- text -----
  480. Click to draw
  481. wavy line
  482.  
  483. -- part contents for card part 11
  484. ----- text -----
  485. Click to draw
  486. wavy arrow
  487.  
  488. -- part contents for card part 8
  489. ----- text -----
  490. Click to draw
  491. dotted line
  492.  
  493. -- part contents for card part 12
  494. ----- text -----
  495. Click to draw
  496. dotted arrow
  497.  
  498. -- part contents for background part 28
  499. ----- text -----
  500.  
  501.  
  502.  
  503.  
  504.  
  505.  
  506.  
  507.  
  508.  
  509.  
  510.  
  511.  
  512. 0 0 198 98 304 98,
  513. 0 1 200 118 304 118,
  514. 1 0 32 70 32 296,
  515. 1 1 302 182 196 182,
  516. 4 0 118 208 118 246,
  517. 4 1 378 243 378 205,
  518.  
  519.  
  520.  
  521.  
  522. 0 1 200 84 306 84,
  523. 1 1 376 124 376 160,
  524.  
  525. -- part contents for card part 19
  526. ----- text -----
  527. About
  528. This
  529. Slide…
  530.  
  531. -- part contents for background part 125
  532. ----- text -----
  533.  
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551.  
  552.  
  553. 20
  554.  
  555. -- part contents for card part 20
  556. ----- text -----
  557. ΓÇó Create Title field & text
  558. ΓÇó Create Rectangle fields & text
  559. ΓÇó Invoke "Straight LineΓǪ" in menu
  560. ΓÇó Click at two ends of line wanted
  561. ΓÇó Put the button this creates over
  562.    "Click to draw straight line"
  563. ΓÇó Similarly with other five
  564. ΓÇó Create PopUp, change font, size
  565. ΓÇó Put PopUp's button over 
  566.   field "About This SlideΓǪ"
  567. ΓÇó Enter text in PopUp
  568. ΓÇó Reset slide, make next slide